Imports Microsoft.VisualBasic

Namespace Logica.ModuloSistema
    Public Class Mail
        Private _smtpHost As String
        Private _nomCuenta As String
        Private _password As String
        Private _estado As String
        Private _id As Integer

        Public Sub New(ByVal smtpHost As String, ByVal nomCuenta As String, ByVal password As String, ByVal estado As String, Optional ByVal id As Integer = 0)
            Me._smtpHost = smtpHost
            Me._nomCuenta = nomCuenta
            Me._password = password
            Me._estado = estado
            Me._id = id
        End Sub

        Public Property id() As Integer
            Get
                Return _id
            End Get

            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property

        Public Property SmtpHost() As String
            Get
                Return _smtpHost
            End Get

            Set(ByVal value As String)
                _smtpHost = value
            End Set
        End Property

        Public Property NomCuenta() As String
            Get
                Return _nomCuenta
            End Get

            Set(ByVal value As String)
                _nomCuenta = value
            End Set
        End Property

        Public Property Password() As String
            Get
                Return _password
            End Get

            Set(ByVal value As String)
                _password = value
            End Set
        End Property

        Public Property Estado() As String
            Get
                Return _estado
            End Get

            Set(ByVal value As String)
                _estado = value
            End Set
        End Property

    End Class
End Namespace

